;#lang racket

(define (sum list)
  (cond
    [(empty? (rest list)) (first list)]
    [else (+ (first list) (sum (rest list)))]
    )
  )


; Test
(define a-lst 
  (cons 2.13
    (cons 3.15
      (cons 6.28
        (cons 4.78 empty)))))

(sum a-lst)
